SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TDBANC_CTCO_U01] 
/*-------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                --*/
/*---Cliente              : OFISIS                 --*/
/*---Sistema              : Tesoreria                  --*/
/*---M©dulo               : Empresa                    --*/
/*---Programa             : Grabaci©n Detalle          --*/
/*---                       Movimiento Bancos          --*/
/*---                       (Egresos)                  --*/  
/*---Script               : TDBANC_CTCO_U01.sql               --*/
/*---Nombre SP            : SP_TDBANC_CTCO_U01         --*/
/*---Desarrollado por     : Javier Flores A.           --*/
/*---Fecha Creaci÷n       : 18/06/1999                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi©n              : 7.0                        --*/
/*---Invoca a SP          :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Modificado 1 por     : Eduardo Vivar Pomiano      --*/
/*---Fecha Modificaci©n   : 03/04/2001                 --*/ 
/*---Detalle Modificaci©n : Permite grabar docs Clientes en EGRESOS--*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Comentarios                                       --*/
/*---                                                  --*/
/*---                                                  --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Drop Proc SP_TDBANC_CTCO_U01                      --*/
/*---Grant all on SP_TDBANC_CTCO_U01 to public         --*/ 
/*---SP_TDBANC_CTCO_U01                               --*/
/*-------------------------------------------------------*/

 @ISCO_EMPR TD_VC_002, 
 @ISCO_USUA_MODI TD_VC_008_USUA,
 @ISCO_BANC TD_VC_003, 
 @ISNU_CNTA_BANC TD_VC_020,
 @ISAA_BNCO TD_VC_004, 
 @ISMM_BNCO TD_VC_002, 
 @ISTI_MOVI_BANC TD_VC_001,  
 @ISNU_COMP_BANC TD_VC_008, 
 @ISNU_PLAC TD_VC_010,
 @ISCO_TIPO_ENTI TD_VC_001, 
 @ISCO_ENTI TD_VC_020,
 @ISDE_ENTI TD_VC_050,
 @ISNU_KILO_ANTE TD_VC_010,
 @ISNU_KILO_RECO TD_VC_010,
 @ISDE_DOCU TD_VC_050,
 @INIM_VEHI TD_NU_016_004,
 @ISCO_UNID_CNTB TD_VC_003
As
Declare
 @VNIM_VEHI_ANTE TD_NU_016_004
 
 Begin Tran SP_TDBANC_CTCO_U01 
 
 Select @VNIM_VEHI_ANTE = IM_VEHI
 From TDBANC_CTCO
 Where  CO_EMPR       = @ISCO_EMPR
 And    CO_UNID_CONC  = @ISCO_UNID_CNTB
 And	CO_BANC       = @ISCO_BANC 
 And	NU_CNTA_BANC  = @ISNU_CNTA_BANC
 And	AA_BNCO       = @ISAA_BNCO
 And	MM_BNCO       = @ISMM_BNCO
 And	TI_MOVI_BANC  = @ISTI_MOVI_BANC
 And    NU_COMP_BANC  = @ISNU_COMP_BANC 
 And    NU_PLAC       = @ISNU_PLAC

    
 Update TCMOVI_BANC
     Set IM_MOVI      = IM_MOVI - Round(@VNIM_VEHI_ANTE,2) + Round(@INIM_VEHI,2),
         CO_USUA_MODI = @ISCO_USUA_MODI,
         FE_USUA_MODI = getdate()         
     Where CO_EMPR = @ISCO_EMPR 
     And   CO_UNID_CONC  = @ISCO_UNID_CNTB
     And   CO_BANC = @ISCO_BANC 
     And   NU_CNTA_BANC = @ISNU_CNTA_BANC 
     And   AA_BNCO = @ISAA_BNCO
     And   MM_BNCO = @ISMM_BNCO 
     And   TI_MOVI_BANC = @ISTI_MOVI_BANC
     And   NU_COMP_BANC = @ISNU_COMP_BANC 

 If @@error <> 0
        Begin
          Rollback tran
	    Return
        End  

 commit tran

 Update  TDBANC_CTCO              
 Set     CO_TIPO_ENTI   = @ISCO_TIPO_ENTI,
         CO_ENTI        = @ISCO_ENTI,
         DE_ENTI        = @ISDE_ENTI,
         NU_KILO_ANTE   = @ISNU_KILO_ANTE,
         NU_KILO_RECO   = @ISNU_KILO_RECO,
         DE_DOCU        = @ISDE_DOCU,
	     IM_VEHI        = @INIM_VEHI,
         CO_USUA_MODI   = @ISCO_USUA_MODI,
        FE_USUA_MODI = getdate()
 Where   CO_EMPR        = @ISCO_EMPR
 And     CO_UNID_CONC   = @ISCO_UNID_CNTB
 And     CO_BANC        = @ISCO_BANC
 And     NU_CNTA_BANC   = @ISNU_CNTA_BANC
 And     AA_BNCO        = @ISAA_BNCO
 And     MM_BNCO        = @ISMM_BNCO	
 And     TI_MOVI_BANC   = @ISTI_MOVI_BANC
 And     NU_COMP_BANC   = @ISNU_COMP_BANC              
 And     NU_PLAC        = @ISNU_PLAC
 
 If @@error <> 0
        Begin
          Rollback tran
	  Return
        End  


/*------------------------ Fin ------------------------------*/


GO
